home *** CD-ROM | disk | FTP | other *** search
/ The Pier Shareware 1 / Pier Shareware 1.iso / 007a / courspas.exe / CHAP08.EXE / PROC4.PAS < prev    next >
Pascal/Delphi Source File  |  1991-01-15  |  1KB  |  44 lines
  1. program LireCaract;  {PROC4.PAS}
  2. uses
  3.   crt;  { unité de Turbo Pascal 6 }
  4.  
  5. var
  6.   caractere: char; { Caractère lu }
  7.  
  8. {------------------------------------------------}
  9. { Liscaract                                      }
  10. {              SP et CAR sont transmis par       }
  11. {              valeur, CH par adresse            }
  12. {------------------------------------------------}
  13. procedure Liscaract(sp,car: byte; var ch: char);
  14. begin
  15.   gotoxy(sp,car);
  16.   write('veuillez frapper un caractère: ');
  17.   ch:= readkey;
  18.   gotoxy(sp,car);
  19.   clreol;       { effacer le contenu de la ligne }
  20. end;
  21. {------------------------------------------------}
  22. { attendrela                                     }
  23. {------------------------------------------------}
  24. procedure attendrela(sp,car: byte);
  25. var  ch: char;
  26.  
  27. begin
  28.   gotoxy(sp,car);
  29.   write('Veuillez appuyer sur une touche...');
  30.   ch:= readkey;
  31. end;
  32. {------------------------------------------------}
  33.  
  34. begin { programme principal }
  35.   repeat
  36.     clrscr;
  37.     Liscaract(1,5,caractere);
  38.     gotoxy(5,10);
  39.     write('Voici le caractère frappé: ');
  40.     write(caractere);
  41.     attendrela(1,25);
  42.   until caractere = 'Q';
  43. end.
  44.